home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
LIBRARY
/
CMPLTPAS
/
UNIT1.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1987-12-12
|
316b
|
20 lines
UNIT Unit1;
INTERFACE
IMPLEMENTATION
VAR Save : Pointer;
{$F+} PROCEDURE Unit1ExitProcedure; {$F-}
BEGIN
Writeln('Unit #1 -- Exit procedure...');
ExitProc := Save
END;
BEGIN
Save := ExitProc;
ExitProc := @Unit1ExitProcedure;
Writeln('Unit #1 -- Initialization procedure...');
END.